home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib10.dsk
/
PRINT USRING DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
42 lines
0 REM **********************
1 REM * PRINT USRING DEMO *
2 REM * BY JOHN BALDWIN *
3 REM * COPYRIGHT (C) 1982 *
4 REM * BY MICRO-SPARC INC *
5 REM * LINCOLN, MA. 01773 *
6 REM * ALL RIGHTS *
7 REM * RESERVED *
8 REM **********************
100 REM SET UP FORMATTING ROUTINE
105 HOME : VTAB 10: HTAB 5: PRINT "PRINT USRING DEMO": HTAB 5: PRINT "BY JOHN BALDWIN": HTAB 5: PRINT "COPYRIGHT (C) 1982": HTAB 5: PRINT "BY MICRO-SPARC INC"
107 VTAB 20: HTAB 5: FLASH : PRINT "LOADING ROUTINE": NORMAL : VTAB 19: REM
110 PRINT CHR$(4);"BRUN PRINTUSR"
115 GOSUB 1000: REM
199 REM SHOW OUTPUT FOR VARIOUS NO. OF DECIMALS
200 PRINT "VARIOUS NUMBER OF DECIMALS": PRINT
205 FOR I = 0 TO 10
210 PRINT USR(1234.567891234)'20,I'
220 NEXT I: GOSUB 1000: REM
249 REM SHOW OUTPUT FOR VARIOUS FIELD WIDTHS
250 PRINT : PRINT "VARIOUS FIELD WIDTHS": PRINT
255 FOR I = 7 TO 20
260 PRINT USR(1234.56)'I,2'
270 NEXT I: GOSUB 1000: REM
299 REM PRINT COLUMNS OF NUMBERS
300 PRINT : PRINT "COLUMNS OF NUMBERS"
305 FOR I = -500 TO 500 STEP 70.0625
310 PRINT USR(I)'10,4';" "; USR(I *I)'10,2'
320 NEXT I: GOSUB 1000: REM
399 REM PRINT BIG NUMBERS
400 PRINT : PRINT "LARGE VALUES": PRINT
405 FOR I = 1E10 TO 1E12 STEP 1E11
410 PRINT USR(I)'20,2'
420 NEXT I: GOSUB 1000: REM
499 REM PRINT SMALL NUMBERS
500 PRINT : PRINT "SMALL VALUES": PRINT
505 FOR I = 1E -12 TO 1E -10 STEP 1E -11
510 PRINT USR(I)'20,12'
520 NEXT I
530 PRINT : PRINT "END OF DEMONSTRATION": END : REM
999 REM WAIT FOR KEYBOARD
1000 PRINT : PRINT "PRESS ANY KEY TO CONTINUE": GET C$: HOME : RETURN : REM